(ns pe.fibs)

(defn fib-step [ab]
  [(last ab) (+ (first ab) (last ab))])

(defn fib-seq []
  (map first (iterate fib-step [0 1])))
